home *** CD-ROM | disk | FTP | other *** search
/ InterNet Essentials for Pharmacists / InterNet Essentials for Pharmacists.iso / InterNet.exe / InterNet.dxr / 00002_Movie Script.ls < prev    next >
Encoding:
Text File  |  2000-11-16  |  2.6 KB  |  116 lines
  1. global videoMode, where, Sprite640, Sprite400, Sprite320
  2.  
  3. on prepareMovie
  4.   DMPack1Reg("55709")
  5.   videoMode = "400"
  6. end
  7.  
  8. on startMovie
  9.   set the soundKeepDevice to 0
  10.   the soundDevice = "directSound"
  11.   set the exitLock to 1
  12.   Sprite640 = [23, "inactive"]
  13.   Sprite400 = [32, "active"]
  14.   Sprite320 = [26, "active"]
  15.   cursor(200)
  16. end
  17.  
  18. on waitFor t
  19.   startTimer()
  20.   repeat while the timer < t
  21.     if the key = "a" then
  22.       exit repeat
  23.     end if
  24.     updateStage()
  25.   end repeat
  26. end
  27.  
  28. on menuOpen k
  29.   if (k = 53) or (k = 49) then
  30.     sound(1).volume = 255
  31.     sound(2).volume = 255
  32.     go("menu open")
  33.   else
  34.     if k = 45 then
  35.       go(the frame + 1)
  36.     end if
  37.   end if
  38. end
  39.  
  40. on setWhere n
  41.   where = n
  42. end
  43.  
  44. on goWhere
  45.   if (where = "acpe credit") or (where = "exit") then
  46.     go(where)
  47.   else
  48.     puppetSound(3, 0)
  49.     member("iemusic22b").unload()
  50.     go(where && videoMode)
  51.   end if
  52. end
  53.  
  54. on buttonReleased
  55.   sprite(50).visible = 0
  56.   set the member of sprite 50 to member("hand")
  57.   cursor(200)
  58.   updateStage()
  59. end
  60.  
  61. on setVidButton check
  62.   if check = VOID then
  63.     nothing()
  64.   else
  65.     if check = "640" then
  66.       videoMode = "640"
  67.     else
  68.       if check = "400" then
  69.         videoMode = "400"
  70.       else
  71.         if check = "320" then
  72.           videoMode = "320"
  73.         end if
  74.       end if
  75.     end if
  76.   end if
  77.   if videoMode = "640" then
  78.     set the member of sprite Sprite640[1] to member("640 on")
  79.     set the member of sprite Sprite400[1] to member("400 norm")
  80.     set the member of sprite Sprite320[1] to member("320 norm")
  81.     Sprite640[2] = "inactive"
  82.     Sprite400[2] = "active"
  83.     Sprite320[2] = "active"
  84.   else
  85.     if videoMode = "400" then
  86.       set the member of sprite Sprite640[1] to member("640 norm")
  87.       set the member of sprite Sprite400[1] to member("400 on")
  88.       set the member of sprite Sprite320[1] to member("320 norm")
  89.       Sprite640[2] = "active"
  90.       Sprite400[2] = "inactive"
  91.       Sprite320[2] = "active"
  92.     else
  93.       if videoMode = "320" then
  94.         set the member of sprite Sprite640[1] to member("640 norm")
  95.         set the member of sprite Sprite400[1] to member("400 norm")
  96.         set the member of sprite Sprite320[1] to member("320 on")
  97.         Sprite640[2] = "active"
  98.         Sprite400[2] = "active"
  99.         Sprite320[2] = "inactive"
  100.       end if
  101.     end if
  102.   end if
  103.   updateStage()
  104. end
  105.  
  106. on CheckIndeoCodecs
  107.   Indeo4Keys = baRegValueList("Software\Intel\Indeo\4.1\Decoder", "HKEY_CURRENT_USER")
  108.   Indeo5Keys = baRegValueList("Software\Intel\Indeo\5.0\Decoder", "HKEY_CURRENT_USER")
  109.   updateStage()
  110.   if (Indeo4Keys = []) and (Indeo5Keys = []) then
  111.     go("install indeo")
  112.   else
  113.     nothing()
  114.   end if
  115. end
  116.